home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / qbfdemo.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1013 b   |  29 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. //---------------------------------------------------------------------------
  9. USEFILE("readme.txt");
  10. USERES("Qbfdemo.res");
  11. USEFORM("QBFForm.cpp", QueryForm);
  12. USEFORM("Rsltform.cpp", ResultForm);
  13. //---------------------------------------------------------------------------
  14. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  15. {
  16.   try
  17.   {
  18.       Application->Initialize();
  19.       Application->CreateForm(__classid(TQueryForm), &QueryForm);
  20.       Application->Run();
  21.   }
  22.   catch(Exception& e)
  23.   {
  24.       ShowMessage(e.Message);
  25.   }
  26.       return 0;
  27. }
  28. //---------------------------------------------------------------------------
  29.